


10 

.TITLE 

M1C0PY 6-19- 

90 






20 

OPT HP T 

M W « 1 W O O 




30 

'Jf' W«" 
^ -~s 

$8500 




40 CIOV = 

$E456 




50 D 

SKINV = 

$E453 




60 S 

I0V = 

$E459 




70 DOSVEC = 

$0A 




80 DOSINI = 

$0C 




90 COLDS! = 

$0244 




0100 

KBDHND 

= $E420 




0110 

DISPLA 

= $E410 




0120 

GETCH = 

$8300 

; POINTER KEYBD HANDLER 



0130 

OUT CHI 

= $8302 

; POINTER TO DISPLA HANDLER 



0140 

CHAR = 

$02FA 




0150 

ATACHR 

= $02FB 




0160 

INBUF = 

$8400 

; TEMP WORK AREA 



0170 

SDRIVE 

= $8304 

; SOURCE DRIVE 



0180 

DDRIVE 

= $8305 

; DEST DRIVE 



0190 

NUMBER 

= $8306 

; NUMBER OF COPIES 



0200 

FFLAG " 

$8307 

; FORMAT FLAG 



0210 

SECTLO 

~ $8308 




0220 

SECTHI 

= $8309 




0230 

D301 = 

$8310 

; SAVED 



0240 

WRTC = 

$8312 

; VERIFY FLAG 



0250 

BKTEST 

= $8313 

; BANKING TEST 



0260 

TNUM = 

$8314 




0270 

TEMPI ~ 

$8315 




0280 

TEMP2 = 

$8316 




0290 

BUSCMD 

= $8317 




0300 

DENFLG 

= $8318 




0310 

GRANGE 

= $8320 




0320 

KCOUNT 

= $8323 




0330 

T8UFL0 

- $00 

; INITIAL 10 BUFFER 



0340 

TBUFHI 

= $40 




0350 

DDEVIC 

= $0300 

; BUS I.D. tt 



0360 

DUNIT - 

$0301 

; DEVICE tt 



0370 

DCOMND 

= $0302 

; BUS COMMAND 



0380 

D3TATS 

= $0303 

; STATUS 



0390 

DBUFLO 

= $0304 

; BUFFER POINTER LO 



0400 

DBUFHI 

“ $0305 

; BUFFER POINTER HI 



0410 

DTIMLO 

= $0306 

; DISK TIME OUT 



0420 

DBYTLO 

= $0308 

OF BYTES LO 



0430 

DBYTHI 

= $0309 

;# OF BYTES HI 



0440 

DAUX1 = 

$030A 

; SECTOR # LO 



0450 

DAUX2 - 

$030B 

; SECTOR # HI 



0460 

RAMTOP 

= $6A 




0470 

; SET UP 

TITLE 




0480 

START J 

SR INIT 

; INI T&PROTECTION 



0490 

NCOPY LDA #1 




0500 

STA 

qpoti n 

; POINT TO FIRST 



0510 

LDX 

#MESS1&255 



0520 

LDY 

4MESS1/256 



0530 

JSR 

PUTLIN 

; COPYRIGHT 



0540 

LDX 

#MESS2&255 



0550 

LDY 

4MESS2/256 



0560 

JSR 

PUTLIN 

; NUM OF COPIES? 



0570 

LDX 

#0 




0580 

STX 

SECTHI 




0590 

STX 

KCOUNT 




0600 

STX 

DENFLG 




0610 

LDA 

4$D1 




0620 

STA 

SRANGE 




0630 

LDA 

#2 

1 



nc a n 

OTA 

CDAMCCi. 1 






0650 

KGET JS 

R GETKEY ; 

0660 

LDX 

KCOUNT 

0670 

LDA 

ATACHR 

0680 

CMP 

# ’ X ; 

0690 

BNE 

CHKD 

0700 

LDA 

D301 ; 

0710 

STA 

$D3Q1 ; 

0720 

RTS 


0730 

CHKD CMP #$44 ; 

0740 

BNE 

CHKH 

0750 

STA 

DENFLG ; 

0760 

JMP 

PRCH 

0770 

CHKH CMP # ’ H 

0780 

BNE 

CHKQ 

0790 

LDY 

#$72 

0800 

STY 

SRANGE 

0810 

LDY 

#1 

0820 

STY 

SRANGE+1 

0830 

JMP 

PRCH 

0840 

CHKQ CMP # ’ Q 

0850 

BNE 

CHKO 

0860 

LDY 

#$A1 

0870 

STY 

SRANGE 

0880 

LDY 

#5 

0890 

STY 

SRANGE+1 

0900 

JMP 

PRCH 

0910 

CHKO CMP #’0 

0920 

BNE 

CKDIG 

0930 

LDY 

#$41 

0940 

STY 

SRANGE 

0950 

LDY 

#$0B 

0960 

STY 

SRANGE+1 

0970 

PRCH JS! 

R OUTCH ; 

0980 

JMP 

KGET 

0990 

CKDIG CMP #$30 ; 

1000 

BCC 

KGET 

1010 

CMP 

#$3A ; 

1020 

BCC 

NEXTCH 

1030 

CMP 

#$9B ; 

1040 

BNE 

KGET 

1050 

NEXT CH STA INBUF, 

1060 

JSR 

OUTCH 

1070 

INC 

KCOUNT 

1080 

CMP 

#$9B ; 

1090 

BNE 

KGET 

1100 

LDA 

KCOUNT 

1110 

CMP 

$ ^ 

1120 

BCC 

K4 

1130 

JMP 

NCOPY 

1140 

K4 CMP 

#2 

1150 

BNE 

TWODIG 

1160 

LDA 

INBUF 

1170 

SEC 


1180 

SBC 

#$30 

1190 

JMP 

STNUM 

1200 

TWODIG LDA INBUF 

1210 

OCA 
w LL, w 


1220 

QDA 
O C3 Vv 

#$30 

1230 

ASL 

A 

1240 

STA 

NUMBER 

1250 

ASL 

A 

1260 

ASL 

A 

1270 

CLC 


1280 

ADC 

NUMBER 

1290 

STA 

NUMBER 

i -*nn 

1 A A 

TMDI IC4. 1 


GET CHARACTER 
EXIT 

SAVED REG 
SET IT NORMAL 

"D" FOR DOUBLE DENSITY 

SHOW DD 

; $171 SECTORS 


; $5A0 SECTORS 


; $B40 SECTORS 

PRINT CHAR 
LESS THAN 0? 
MORE THAN 9 
RETURN? 

X 

RETURN? 


; ASCII TO HEX 



1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 


O £T 


SBC #$30 
CLC 

ADC NUMBER 
STNUM STA NUMBER 
STA TNUM 

SRCDRV LDX #MESS3&255 


K2 


LDY 

#MESS3/256 



JSR 

PUTLIN 

; SOURCE DRIVE 

JSR 

GETKEY 




LDA 

ATACHR 




CMP 

#$31 

; LESS 

THAN 

1? 

8CC 

K2 




CMP 

#$35 

; MORE 

THAN 

4? 

BCS 

K2 




orp 

v*/ Lw* v 





SBC 

#$30 




STA 

SDRIVE 




JSR 

MYOUT 





DESDRV LDX #MESS4&255 


K3 


LDY 

#MESS4/256 



JSR 

PUTLIN 

; DESTIN DRIVE? 

JSR 

GETKEY 




LDA 

ATACHR 




CMP 

#$31 

» 1 rr o 

, Ltoo 

THAN 

1? 

BCC 

K3 




CMP 

#$35 

; MORE 

THAN 

4? 

BCS 

K3 




QCT f*'- 
Otl v 





SBC 

#$30 




STA 

DDRIVE 




JSR 

MYOUT 





VERIFY LDX #MESS7&255 
LDY #MESS7/256 


JSR PUTLIN 
JSR GETKEY 
LDA #$50 
STA WRTC 
LDA ATACHR 
#$59 
VER1 
#$57 
WRTC 
VER1 JSR MYOUT 
FORMAT LDX #MESS5&255 
LDY #ME3S5/256 


VERIFY DISK? 


CMP 

BNE 

LDA 

STA 


NON VERIFY 


Y 


JSR PUTLIN 
JSR GETKEY 
LDA ATACHR 
STA FFLAG 
JSR MYOUT 
MAIN JMP SRCMSG 
RSRC LDA #$40 


; FORMAT DISK? 


GO WAIT FOR START 


STA 


BUSCMD 


JSR READ 
JMP DSTMSG 
WLOOP JSR FMTDSK 
WRT LDA #$80 


STA 

JSR 

DEC 

LDA 

CMP 

BNE 

STA 
i n/\ 


BUSCMD 

WRITE 

TNUM 

TNUM 

#0 

DSTMSG 

FFLAG 

Ml IMBCO 


NUMBER OF COPIES 
IN PASS 


; TURN OFF FORMAT FLAG 

-ncrr DtrAnv crno mcvt 


i oxn 



1970 

STA 

TNUM 

1980 

JSR 

TDONE 

1990 

SRCMSG 

JSR MSG6 

2000 

JSR 

BEGIN 

2010 

JMP 

RSRC 

2020 

DSTMSG 

JSR MSGS 

2030 

JSR 

BEGIN 

2040 

JMP 

WLOOP 

2050 

BEGIN LDA $D01F 

2060 

CMP 

#6 

2070 

BNE 

BEGIN 

2080 

RTS 


2090 

FMTDSK 1 

LDA FFLAG 

2100 

CMP 

#$59 

2110 

BNE 

CONT 

2120 

LDA 

#$80 

2130 

STA 

DTIMLO 

2140 

LDA 

DDRIVE 

2150 

STA 

DUNIT 

2160 

LDA 

#$21 

2170 

STA 

DCOMND 

2180 

JSR 

GET RDY 

2190 

LDA 

#$40 

2200 

STA 

DSTATS 

2210 

STA 

DBUFLO 

2220 

LDA 

#$80 

2230 

STA 

DBUFHI 

2240 

JSR 

SIOV 

2250 

BMI 

FMTDSK 

2260 

LDA 

#TBUFHI 

2270 

STA 

DBUFHI 

2280 

CONT RT: 

S 

2290 

READ LDA SDRIVE 

2300 

STA 

DUNIT 

2310 

LDA 

#$52 

2320 

STA 

DCOMND 

2330 

LDA 

5FTTI n 

O W 1 LU 

2340 

STA 

TEMPI 

2350 

im W V-/ W 

STA 

DAUX1 

2360 

LDA 

SECTHI 

2370 

STA 

TEMP2 

2380 

STA 

DAUX2 

2390 

JSR 

GETRDY 

2400 

LDA 

#TBUFLO 

2410 

STA 

DBUFLO 

2420 

LDA 

#TBUFHI 

2430 

STA 

DBUFHI 

2440 

C0NT2 J: 

BR SIOV 

2450 

JSR 

INCSD 

2460 

0 0 0 
L/ L/ 

C0NT2 

2470 

RTS 


2480 

INCSD CLC 

2490 

LDA 

SECTLO 

2500 

ADC 

#1 

2510 

STA 

SECTLO 

2520 

STA 

DAUX1 

2530 

LDA 

SECTHI 

2540 

ADC 

#0 

2550 

STA 

SECTHI 

2560 

STA 

DAUX2 

2570 

CMP 

SRANGE+1 

2580 

BNE 

CONTI 

2590 

LDA 

SECTLO 

2600 

CMP 

SRANGE 

2610 

BNE 

CONTI 


; PASS 

; SEE IF FINISHED 


; GO READ MORE SECTORS 


; GO WRITE NEXT DISK 

; IS START PUSHED 
; NO . GOTO BEGIN 

; FORMAT FLAG 
; "Y" 

; NO , GOT 0 CONT 
; TIMEOUT 120 SEC. 


; FORMAT 


; FOR STATUS 
; GO FORMAT DISK 
; TRY AGAIN IF BAD 


; SOURCE DRIVE 

; READ COMMAND 

; STORE IN TEMP SO WE 
; KNOW WHERE TO WRITE 
; AND GET READY 
; FOR I/O CALL 

; SECTOR TO READ 


; BUFFER POINTERS 


; INCREMENT SECTOR 
; AND BUFFER PIONTERS 


ol on 


i n a 




-DOTM^ TM CTT DOT 


2630 STA $D301 ; RAM BANK AND 

2640 LDA #$10 ; SETUP TEST BYTE 

2650 STA BKTEST ;F0R 1ST RAM BANKS 

2660 SEC ; SET CARRY WHEN DONE 

2670 RTS 

2680 CONTI JSR GETRDY 

2690 RTS 

2700 WRITE LDA DDRIVE ; GET READY 
2710 STA DUNIT ; TO WRITE 

2720 LDA WRTC ; WRITE COMMAND 

2730 STA DCOMND 

2740 LDA #10 

2750 STA $4D ; ATRACT FLAG 

2760 STA DTIMLO 

2770 LDA TEMPI 

2780 STA SECTLO 

2790 STA DAUX1 

2800 LDA TEMP2 

2810 STA SECTHI 

2820 STA DAUX2 

2830 JSR GETRDY 

2840 LDA #TBUFLQ 

2850 STA DBUFLO 

2860 LDA #TBUFHI 

2870 STA D8UFHI 

2880 C0NT3 JSR SIOV 

2890 JSR INCSD 

2900 BCC C0NT3 

2910 RTS 

2920 GETRDY LDA #$31 

2930 STA DDEVIC 

2940 LDA BUSCMD 

2950 STA DSTATS 

2960 LDA DENFLG 

2970 BEQ SINGLE 

2980 LDA DCOMND 

2990 CMP #$21 

3000 BEQ B256 

3010 LDA SECTLO 

3020 CMP #4 

3030 80S B256 

3040 LDA SECTHI 

3050 BNE B256 

3060 SINGLE LDA #0 

3070 STA DBYTHI 

3080 LDA #$80 

3090 STA DBYTLO 

3100 CLC 

3110 LDA DBUFLO 

3120 ADC #$80 

3130 STA DBUFLO 

3140 LDA DBUFHI 

3150 ADC #0 

3160 STA DBUFHI 

3170 JMP RDT 

3180 B256 LDA #0 

3190 STA DBYTLO 

3200 LDA #1 

3210 STA DBYTHI 

3220 CLC 

3230 LDA DBUFHI 

3240 ADC #1 

3250 STA DBUFHI 

3260 RDT LDA DBUFHI ; DON ’ T DELETE THIS DUMMY 

3270 CMP #$7F ; AT TOP OF BANK? 

or'n DHTyl -MO 


700 n 


3290 CLC 

3300 LDA $D301 

3310 ADC #2 ; GO TO ANOTHER BANK , Ml =2 , M2 = 4 , M3 = 1 

3320 CMP BKTEST ; ANY FIRST BANKS LEFT 

3330 BCC RDT3 ; YES 

3340 CLC ; SET UP NEXT SET OF BANKS 

3350 ADC #$10 

3360 STA $D301 

3370 CLC 

3380 LDA #$20 ; Ml =$20 , M2=$10 , M3=$40 

3390 ADC BKTEST 

3400 STA BKTEST 

3410 BCC RDT5 

3420 LDA D301 ;N0 BANKS LEFT 

3430 STA $D301 ; RESET TO NORMAL 

3440 RDT 4 RTS 
3450 RDT3 STA $D301 

3460 RDT5 LDA #0 ; RESET BUFFERS FOR 

3470 STA DBUFLO ; XTRA BANKS 

3480 LDA #$40 

3490 STA DBUFHI 

3500 CLC 

3510 RTS 

3520 MESS2 .BYTE "HOW MANY COPIES? (X TO EXIT)",$9B 

3530 MESS3 .BYTE "SOURCE DRIVE? " , $98 

3540 MESS4 .BYTE "DESTINATION DRIVE?", $98 

3550 MESS7 .BYTE "VERIFY WRITES?(Y OR N)" ,$98 

3560 MESS5 .BYTE "FORMAT DESTINATION (Y or N)?",$98 

3570 ME3S6 .BYTE "}>INSERT SOURCE DISK, PUSH START.?", $9B 

3580 MESS8 .BYTE " } INSERT DESTINATION DISK, PUSH START.?", $98 

3590 MSG6 LDX #MESS6&255 

3600 LDY #MESS6/ 256 

3610 JMP PUTLIN ;SOURCE DISK 

3620 MSGS LDX #MESS8&255 

3630 LDY #MESS8/256 

3640 JMP PUTLIN ; NEXT DISK 

3650 TDONE LDA 3ECTL0 

3660 CMP SRANGE 

3670 BNE TRTS 

3680 LDA SECTHI 

3690 CMP SRANGE+1 

3700 BNE TRTS 

3710 LDA D301 

3720 STA $D301 ; RESTORE MAP REG 

3730 PLA ; CLEAN UP STACK 

3740 PLA ; BEFORE JMP OUT OF SUBROUTINE 

3750 JMP START ; RESTART 

3760 TRTS RTS 

3770 MYOUT LDA ATACHR 

3780 OUTCH JMP (0UTCH1) ;T0 OS TO PRINT CHARACTER 

3790 GETKEY JMP (GETCH) ;G0 TO OS AND GET KEY 

3800 INIT LDA $D301 ; BANK MAP 

3810 STA D301 ; SAVE IT FOR EXIT 

3820 LDA #$01 ; SET UP MMU FOR FIRST RAM BANK 

3830 STA $D301 ; M1&M3=1 , M2=3 

3840 LDA #$10 ;SETUP TEST BYTE 

3850 STA BKTEST ;FOR 1ST RAM BANKS 

3860 LDA #10 

3870 STA DTIMLO ;SET DEVICE TIMEOUT 

3880 LDA KBDHND+5 ;SET UP FOR CALL TO GET KEYBOARD CHARACTER 

3890 STA GETCH+1 ;VIA JMP ( GET CH ) 

3900 LDA KBDHND+4 

3910 CLC 

3920 ADC #1 ; FOR SCREWED UP VECTOR TABLE 

3930 STA GETCH ;IF WE CROSS PAGE BOUNDARY 

cn i it rM~i 


70 4 n 


3950 INC GET CH+1 ; ADD 1 TO HIGH BIT 

3960 SOUTCH LDA DI3PLA+7 ; SAME AS ABOVE TO PRINT CHR. 

3970 STA 0UTCH1+1 ;VIA JMP(OUTCHl) 

3980 LDA DISPLA+6 

3990 CLC 

4000 ADC #1 

4010 STA OUT CHI 

4020 BCC GOON 

4030 INC 0UTCH1+1 

4040 GOON RTS 

4050 MESS1 .BYTE ">M1C0PY V1.1(C)1990 NEWELL INDUSTRIES ", $9B 

4060 PUTLIN TXA ; PUT LINE ON SCREEN 

4070 LDX #0 

4080 STA $0344, X 

4090 TYA 

4100 STA $0345, X 

4110 LDA #9 

4120 STA $0342, X 

4130 LDA #$FF 

4140 STA $0348, X 

4150 END JMP CIOV 

4160 .END 



